home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-170 dbase 10 for windows / 1.ima / SAMPLES.PAK / FONT.PRG < prev    next >
Text File  |  1993-07-26  |  2KB  |  52 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Font.prg
  3. *
  4. *  WRITTEN BY:   Borland Late Night Crew
  5. *
  6. *  DATE:         6/93
  7. *
  8. *  UPDATED:
  9. *
  10. *  VERSION:      Alpha α
  11. *
  12. *  DESCRIPTION:  This program shows how to use Bladerunner's DEFINE FONT command
  13. *                to create different fonts.  In this version of Bladerunner
  14. *                fonts can be used with text,entryfields and pushbuttons.
  15. *                Here, a window is defined with text and entryfield objects
  16. *                in various fonts.
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        None
  21. *
  22. *  USAGE:        DO Font
  23. *
  24. *******************************************************************************
  25. define window w from 1,1 to 30,70 of application title "Fonts Are Fun"
  26.  
  27. * Create the fonts
  28. define font f1 height 30 width 30 type "Roman" Italic
  29. define font f2 height 30 width 30 type "Roman" bold
  30. define font f3 height 15 width 10 type "Roman" underline
  31. define font f4 height 20 width 20 type "Script"
  32. define font f5 height 30 width 20 type "Arial" Bold
  33. define font f6 height 40 width 20 type "Script"  Bold
  34.  
  35. * Define window controls
  36. define text t of w prompt "Good Stuff" color r+/w font f1 at 1,1
  37. define text t2 of w prompt "Roman 30 30 bold" at nextrow(),1 color b+/w font f2
  38. define text t3 of w prompt "Roman 15 10 underline" at nextrow(),1 color bg/w font f3
  39. define text t4 of w prompt "Script 20 20" at nextrow(),1 color br+/w font f4
  40. define text t5 of w prompt "Arial 30 20 bold" at nextrow(),1 color w+/w font f5
  41. define text t6 of w prompt "Script 40 20 bold" at nextrow(),1 color gr+/w font f6
  42. * Set entryfield color
  43. set color of field to w+/b
  44. a = "Edit Me                         "
  45. * Use nextrow() to correctly place the entryfield on the next logical row.
  46. * Using the last row + 1 will not always work because of different font heights.
  47. define entryfield a of w at nextrow(),1 color w+/b font f6
  48. define push ok of w prompt "OK" at nextrow(),50
  49. ReadModal("w")
  50.  
  51. ********************************* End of Font.prg *****************************
  52.